   1 NT=0;T=1;GOTO 19
   2 CX=-71;RETURN 
   3 CX=-23;RETURN 
   4 GOSUB 2;PRINT "1 J0HN ";GOSUB 2;CY=0;PRINT "2 JUNE ";GOSUB 2;CY=-16;PRINT "3 J0HNT";GOSUB 2;CY=-32;PRINT "4 JULIE";RETURN 
   5 GOSUB 2;PRINT "1 SEAN ";GOSUB 2;CY=0;PRINT "2 JUDY ";GOSUB 2;CY=-16;PRINT "3 STU  ";GOSUB 2;CY=-32;PRINT "4 DEB  ";RETURN 
   6 GOSUB 2;PRINT "1 TOM  ";GOSUB 2;CY=0;PRINT "2 R0NDA";GOSUB 2;CY=-16;PRINT "3 R0GER";GOSUB 2;CY=-32;PRINT "4 VICKY";RETURN 
   7 GOSUB 2;PRINT "1 B0B  ";GOSUB 2;CY=0;PRINT "2 BECKY";GOSUB 2;CY=-16;PRINT "3 D0N  ";GOSUB 2;CY=-32;PRINT "4 PEGGY";RETURN 
   8 GOSUB 2;PRINT "1 CLYDE";GOSUB 2;CY=0;PRINT "2 SUZIE";GOSUB 2;CY=-16;PRINT "3 DICK ";GOSUB 2;CY=-32;PRINT "4 MARIL";RETURN 
   9 GOSUB 2;PRINT "1 D0UG ";GOSUB 2;CY=0;PRINT "2 BETTY";GOSUB 2;CY=-16;PRINT "3 LARRY";GOSUB 2;CY=-32;PRINT "4 DEB  ";RETURN 
  10 GOSUB 2;PRINT "1 HARLD";GOSUB 2;CY=0;PRINT "2 VI   ";GOSUB 2;CY=-16;PRINT "3 DAVE ";GOSUB 2;CY=-32;PRINT "4 L0IS ";RETURN 
  11 GOSUB 2;PRINT "1 J0HN ";GOSUB 2;CY=0;PRINT "2 MIKI ";GOSUB 2;CY=-16;PRINT "3 DAVE ";GOSUB 2;CY=-32;PRINT "4 MARY ";RETURN 
  12 M=(200-@(X+4)÷@(X));RETURN 
  15 CY=-32;CX=-71;RETURN 
  16 CX=-59;RETURN 
  18 CLEAR ;PRINT ;GOSUB 2;INPUT "TEAM?"T
  19 CLEAR ;PRINT ;CX=-17;PRINT "INPUT ";PRINT ;GOSUB 16;PRINT "1-UPDATE SC0RES";PRINT ;GOSUB 16;PRINT "2-TEAM HDCP";PRINT ;GOSUB 16;PRINT "3-NEW TEAM";PRINT ;GOSUB 16
  20 PRINT "4-SAVE 0N TAPE";INPUT "?"N;IF (N<1)+(N>4)GOTO 19
  21 IF N#1GOTO N×200
  23 CLEAR ;PRINT ;CX=-16;PRINT "TEAM#",#1,T;PRINT " B0WLER GAMES TP  AVG  HDC";GOSUB T+3
  25 CY=16;FOR A=T×16-15TO T×16-12;GOSUB 3;PRINT #1,@(A),#5,@(A+4),@(A+12),@(A+8);PRINT ;NEXT A
  30 GOSUB 15;INPUT "B0WLER?"B;IF B=0GOTO 19
  35 IF B>4GOTO 30
  40 GOSUB 15;PRINT "#",#1,B,;INPUT " GAMES?"C;X=T×16-16+B;@(X)=@(X)+C
  45 BOX 0,-32,159,8,2
  50 GOSUB 15;PRINT "#",#1,B,;INPUT "  SC0RES?"D,E,F;H=D+E+F;@(X+4)=@(X+4)+H
  60 CLEAR ;PRINT ;PRINT " BLR#",#1,B;GOSUB 3;PRINT #4,D,E,F
  70 GOSUB 3;PRINT "SERIES►►",#1,H;@(X+12)=@(X+4)÷@(X);I=B÷2;IF RMGOSUB 12;@(X+8)=M×7÷10;GOTO 90
  80 GOSUB 12;@(X+8)=M×8÷10
  90 IF @(X+8)<0@(X+8)=0
 100 K=KP;CLEAR ;GOTO 21
 400 R=0;FOR A=T×16-3TO T×16;R=R+@(A);NEXT A;CLEAR ;CY=0;PRINT "TEAM#",#1,T;PRINT "HDCP",(675-R)×8÷10;PRINT "AVG.",R
 410 K=KP;GOTO 19
 600 GOTO 18
 800 CLEAR ;CY=0;PRINT "KEY";K=KP
 810 NT=1;:PRINT ;PRINT ".";LIST ;J=0;FOR A=1TO 16;FOR B=1TO 8;J=J+1;PRINT #1,"@(",J,")=",@(J);NEXT B;NEXT A;PRINT ":RETURN ;RUN 
@(1)=18
@(2)=18
@(3)=15
@(4)=15
@(5)=2881
@(6)=2482
@(7)=1991
@(8)=1565
@(9)=28
@(10)=50
@(11)=47
@(12)=76
@(13)=160
@(14)=137
@(15)=132
@(16)=104
@(17)=18
@(18)=18
@(19)=18
@(20)=18
@(21)=1338
@(22)=1212
@(23)=2655
@(24)=2348
@(25)=88
@(26)=106
@(27)=37
@(28)=56
@(29)=74
@(30)=67
@(31)=147
@(32)=130
@(33)=15
@(34)=12
@(35)=18
@(36)=18
@(37)=2420
@(38)=1512
@(39)=3057
@(40)=1959
@(41)=27
@(42)=59
@(43)=21
@(44)=73
@(45)=161
@(46)=126
@(47)=169
@(48)=108
@(49)=18
@(50)=9
@(51)=18
@(52)=18
@(53)=2956
@(54)=1075
@(55)=2583
@(56)=2685
@(57)=25
@(58)=64
@(59)=39
@(60)=40
@(61)=164
@(62)=119
@(63)=143
@(64)=149
@(65)=18
@(66)=18
@(67)=18
@(68)=17
@(69)=2905
@(70)=2460
@(71)=2925
@(72)=1663
@(73)=27
@(74)=51
@(75)=26
@(76)=82
@(77)=161
@(78)=136
@(79)=162
@(80)=97
@(81)=18
@(82)=18
@(83)=18
@(84)=18
@(85)=2870
@(86)=2062
@(87)=2732
@(88)=2547
@(89)=28
@(90)=68
@(91)=34
@(92)=47
@(93)=159
@(94)=114
@(95)=151
@(96)=141
@(97)=9
@(98)=15
@(99)=18
@(100)=18
@(101)=1305
@(102)=2448
@(103)=2734
@(104)=2463
@(105)=38
@(106)=29
@(107)=34
@(108)=51
@(109)=145
@(110)=163
@(111)=151
@(112)=136
@(113)=13
@(114)=18
@(115)=12
@(116)=13
@(117)=2012
@(118)=2659
@(119)=2047
@(120)=1503
@(121)=32
@(122)=42
@(123)=21
@(124)=68
@(125)=154
@(126)=147
@(127)=170
@(128)=115
:RETURN ;RUN 
